home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / VRASTER.DEF < prev    next >
Encoding:
Modula Definition  |  1993-07-13  |  2.3 KB  |  83 lines
  1. DEFINITION MODULE VRaster;
  2.  
  3. (*
  4. VDI Raster Functions.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. FROM VDI    IMPORT XY;
  12. FROM PORTAB IMPORT UNSIGNEDWORD,ANYBYTE,ANYWORD,ANYPOINTER,ANYTYPE;
  13.  
  14. IMPORT VDI,VAttribute;
  15.  
  16. TYPE RasterModes = (AllWhite,
  17.                     SAndD,
  18.                     SAndNotD,
  19.                     SOnly,
  20.                     NotSAndD,
  21.                     DOnly,
  22.                     SXOrD,
  23.                     SOrD,
  24.                     NOTSOrD,
  25.                     NOTSXOrD,
  26.                     DInvert,
  27.                     SOrNotD,
  28.                     NotD,
  29.                     NotSOrD,
  30.                     NOTSAndD,
  31.                     AllBlack);
  32.  
  33. (* (memory) form definition block *)
  34.  
  35. TYPE MFDB = VDI.MFDB;
  36.  
  37. (* a MFDB alias, therefor VAR ARRAY OF ANYTYPE instead of VAR MFDB *)
  38.  
  39.      FDB = VDI.FDB;
  40.  
  41. (* [V]DI: [C]o[py] [R]aster [F]or[m] [O]paque ******************************)
  42.  
  43. PROCEDURE VROCpyFm(    Handle : UNSIGNEDWORD;
  44.                        Mode   : RasterModes;
  45.                    VAR PXY    : ARRAY OF XY;
  46.                    VAR SrcMFDB: ARRAY OF ANYTYPE;
  47.                    VAR DesMFDB: ARRAY OF ANYTYPE);
  48.  
  49. (* [V]DI: [C]o[py] [R]aster [F]or[m] [T]ransparent *************************)
  50.  
  51. TYPE WritingModes = VAttribute.WritingModes;
  52.  
  53. (*
  54. CONST MdReplace = VAttribute.MdReplace;
  55.       MdTrans   = VAttribute.MdTrans;
  56.       MdXOR     = VAttribute.MdXOR;
  57.       MdErase   = VAttribute.MdErase;
  58. *)
  59.  
  60. PROCEDURE VRTCpyFm(    Handle    : UNSIGNEDWORD;
  61.                        Mode      : WritingModes;
  62.                    VAR PXY       : ARRAY OF XY;
  63.                    VAR SrcMFDB   : ARRAY OF ANYTYPE;
  64.                    VAR DesMFDB   : ARRAY OF ANYTYPE;
  65.                        PixelColor: UNSIGNEDWORD;
  66.                        BackGround: UNSIGNEDWORD);
  67.  
  68. (* [V]DI: [Tr]a[n]sform [R]aster [F]or[m] **********************************)
  69.  
  70. PROCEDURE VRTrnFm(    Handle : UNSIGNEDWORD;
  71.                   VAR SrcMFDB: ARRAY OF ANYTYPE;
  72.                   VAR DesMFDB: ARRAY OF ANYTYPE);
  73.  
  74. (* [V]DI: [Get] [Pixel] ****************************************************)
  75.  
  76. PROCEDURE VGetPixel(    Handle: UNSIGNEDWORD;
  77.                         X     : XY;
  78.                         Y     : XY;
  79.                     VAR Pel   : BOOLEAN;
  80.                     VAR Index : UNSIGNEDWORD);
  81.  
  82. END VRaster.
  83.